procedure parsehtml(text:string);

var

_Nodes: TTagNodeList;
HTMLParser1:THtmlParser;


begin

HTMLParser1.Parse(Text);
HTMLParser1.Tree.GetTags('*', _Nodes);

for i := 0 to _Nodes.Count - 1 do
begin
//you can know what't the tag with _Nodes[i].caption
for j := 0 to _Nodes[i].Params.Count - 1 do
begin
//you can know what's the parameter with _Nodes[i].params[j]
end;
end;

HTMLParser1.Free;
_Nodes.Free;

end;